library(dbConnect)
library(odbc)
library(DBI)
library(rpart.plot)
library(rpart)
library(tree)
library(gplots)
library(ineq)
#Estraggo tabella 17_18
con <- dbConnect(odbc::odbc(),DRIVER="SQL Server", SERVER="192.168.2.14", DATABASE = "FASHION_RETAIL", UID="sa", PWD="Mediamente1")#connetto al DB
query <- dbSendQuery(con, "select * from AGGREGATE.CART_QUARTER_SHOP_SALES_1718 ") 
#query <- dbSendQuery(con, "select * from AGGREGATE.CART_YEAR_SHOP_SALES_1718 ")
DATA <- dbFetch(query)
DATASET <- DATA [3:ncol(DATA)]      #elimino colonne 1,2 riferite ai negozi (SHOP_ID & SHOP)
#Partizione dei dati
pd17 <- sample(2,nrow(DATASET),replace=TRUE, prob= c(0.8,0.2))
TRAININGSet <- DATASET[pd17==1,]
TESTSet<- DATASET[pd17==2,]
#CART
CART <- rpart(FlagOpen ~ ., data=TRAININGSet, method="class",control=rpart.control(minsplit=5))
#CART<- rpart(FlagOpen ~  DISCOUNT + MARGIN + nRECEIPT + GAIN+ COGS, data=DATASET17, method="class",rpart.control(minsplit = 5)) 
#Color CART 
boxcols <- c("red", "palegreen3")[CART$frame$yval]
#Plot CART
rpart.plot(CART, fallen.leaves=TRUE,box.col = boxcols, uniform=TRUE )
prp(CART,box.col = boxcols)
# view results 
print(CART) 
#Inserisco TESTset  nell'ALGORITMO CART
prevision <- predict(CART, TESTSet, type="class")
#accuratezza previsione
Gini(prevision)
mean (prevision == TESTSet$FlagOpen)
#Estraggo tabella 18_19
con2 <- dbConnect(odbc::odbc(),DRIVER="SQL Server", SERVER="192.168.2.14", DATABASE = "FASHION_RETAIL", UID="sa", PWD="Mediamente1") 
query1819 <-dbSendQuery(con2,"select * from AGGREGATE.CART_QUARTER_SHOP_SALES_19 ")
DATA1819 <- dbFetch(query1819)
#elimino colonna riferita alla descrizione negozi
 DATASET1819 <- DATA1819 [-2]      
#Inserisco la tabella nell'ALGORITMO CART
prevision2019 <- predict(CART, DATASET1819, type="class")
prevision2019
#accuratezza previsione
Gini(prevision2019) 
mean (prevision2019 == DATASET1819$FlagOpen) 
#Statistics 
summary(prevision2019) 
cbind(DATA1819, prevision2019)
----------------------------------------------------------------------------------


> # view results 
> print(CART) 
n= 78 

node), split, n, loss, yval, (yprob)
      * denotes terminal node

  1) root 78 20 OPEN (0.25641026 0.74358974)  
    2) MARGIN< 1235.842 5  0 CLOSE (1.00000000 0.00000000) *
    3) MARGIN>=1235.842 73 15 OPEN (0.20547945 0.79452055)  
      6) MARGIN< 17461.73 19  7 OPEN (0.36842105 0.63157895)  
       12) nRECEIPT>=113 8  2 CLOSE (0.75000000 0.25000000) *
       13) nRECEIPT< 113 11  1 OPEN (0.09090909 0.90909091) *
      7) MARGIN>=17461.73 54  8 OPEN (0.14814815 0.85185185)  
       14) nRECEIPT>=459 43  8 OPEN (0.18604651 0.81395349)  
         28) MARGIN< 39091.27 3  1 CLOSE (0.66666667 0.33333333) *
         29) MARGIN>=39091.27 40  6 OPEN (0.15000000 0.85000000)  
           58) COGS< 75358.5 6  2 OPEN (0.33333333 0.66666667) *
           59) COGS>=75358.5 34  4 OPEN (0.11764706 0.88235294)  
            118) COGS>=161920.7 18  4 OPEN (0.22222222 0.77777778)  
              236) nRECEIPT< 2059 2  0 CLOSE (1.00000000 0.00000000) *
              237) nRECEIPT>=2059 16  2 OPEN (0.12500000 0.87500000) *
            119) COGS< 161920.7 16  0 OPEN (0.00000000 1.00000000) *
       15) nRECEIPT< 459 11  0 OPEN (0.00000000 1.00000000) *
> 
summary(CART)
Call:
rpart(formula = FlagOpen ~ ., data = TRAININGSet, method = "class", 
    control = rpart.control(minsplit = 5))
  n= 78 

     CP nsplit rel error xerror      xstd
1 0.250      0      1.00    1.0 0.1928198
2 0.100      1      0.75    0.8 0.1783112
3 0.025      3      0.55    0.9 0.1860521
4 0.010      8      0.40    1.0 0.1928198

Variable importance
    GAIN     COGS   MARGIN nRECEIPT 
      28       26       25       21 
> #Inserisco TESTset  nell'ALGORITMO CART
> prevision <- predict(CART, TESTSet, type="class")
> #accuratezza previsione
> Gini(prevision)
[1] 0.09428571
> mean (prevision == TESTSet$FlagOpen) 
[1] 0.8571429

> prevision2019
    1     2     3     4     5     6     7     8     9    10    11    12    13    14    15    16    17    18    19    20    21 
 OPEN  OPEN  OPEN  OPEN CLOSE  OPEN  OPEN  OPEN CLOSE  OPEN  OPEN  OPEN  OPEN  OPEN  OPEN  OPEN CLOSE  OPEN  OPEN CLOSE  OPEN 
   22    23    24    25    26    27    28    29 
 OPEN CLOSE  OPEN  OPEN  OPEN  OPEN  OPEN  OPEN 
Levels: CLOSE OPEN
> 
> #accuratezza previsione
> Gini(prevision2019) 
[1] 0.07807417
> mean (prevision2019 == DATASET1819$FlagOpen) 
[1] 0.8275862
> 
> #Statistics 
> summary(prevision2019) 
CLOSE  OPEN 
    5    24 
> cbind(DATA1819, prevision2019) 
   SHOP_ID                                      SHOP    MARGIN nRECEIPT       GAIN      COGS FlagOpen prevision2019
1  4064196 "ITALY - ROMA - CASTELROMANO  Outlet NEW" 194247.68     5505  681708.61 487460.93     OPEN          OPEN
2    73638            "ITALY - SIENA - Via di Citt?"  20007.68      337   44479.96  24472.28     OPEN          OPEN
3  2237727        "ITALY - MILANO - P.zza Duomo NEW" 630648.10     7019 1225036.95 594388.85     OPEN          OPEN
4  2286770   "ITALY - FERNO - MILANO  Malpensa DUTY" 175389.83     1656  330031.18 154641.35     OPEN          OPEN
5  3253865     "ITALY - ORIO AL SERIO - Orio Center"  31478.99      473   67379.97  35900.98     OPEN         CLOSE
6  4063154             "ITALY - MARCIANISE - Outlet"  69378.27     2699  288114.85 218736.58     OPEN          OPEN
7    73647   "ITALY - BARBERINO DI MUGELLO - Outlet" 103459.19     3064  403503.95 300044.76     OPEN          OPEN
8    73569          "ITALY - MILANO - C.so Vercelli"  56877.92      813  116076.54  59198.62     OPEN          OPEN
9    73539             "ITALY - BOLOGNA - Ugo Bassi"  32635.11      525   69497.32  36862.21     OPEN         CLOSE
10 4596364       "ITALY - MILANO - Buenos Aires NEW" 102839.96     1222  201342.97  98503.01     OPEN          OPEN
11 3694385         "ITALY - ROMA - Fiumicino E DUTY" 292708.76     2945  564322.08 271613.32     OPEN          OPEN
12 3145981                  "ITALY - AGIRA - Outlet"  40576.74     1484  172534.32 131957.58     OPEN          OPEN
13 1489952     "ITALY - FIRENZE - P. della Signoria" 206888.62     2081  399424.69 192536.07     OPEN          OPEN
14 2265838                "EUR -  - ECommerce Shop " 485280.72     8978 1033463.06 548182.34     OPEN          OPEN
15   73830                          "ITALY - VARESE"  25486.93      405   56269.82  30782.89     OPEN          OPEN
16   73801     "ITALY - BOLOGNA - Aeroporto G.Marco"  39345.60      568   80020.96  40675.36     OPEN          OPEN
17   73716                         "ITALY - BRESCIA"  32220.88      475   68861.94  36641.06     OPEN         CLOSE
18 2264278       "ITALY - ROMA - Cola di Rienzo NEW"  46636.65      701   97573.92  50937.27     OPEN          OPEN
19 2726114                  "ITALY - ROMA - Euroma2"  26713.93      402   54045.17  27331.24     OPEN          OPEN
20   73773                         "ITALY - PERUGIA"  12420.89      211   28334.43  15913.54     OPEN         CLOSE
21 4064198 "ITALY - SERRAVALLE SCRIVIA - Outlet NEW" 336480.19     7787 1196995.75 860515.56     OPEN          OPEN
22  175674              "ITALY - ROMA - Fiumicino C"  77269.68     1035  162405.14  85135.46     OPEN          OPEN
23   73740         "ITALY - NAPOLI - Via Filangieri"  36069.38      529   75713.85  39644.47     OPEN         CLOSE
24   73825                "ITALY - BOLOGNA - Farini"  72161.05      946  150774.37  78613.32     OPEN          OPEN
25 2022028     "ITALY -** PALERMO - Via Libert? NEW"   4178.04       88   10211.89   6033.85     OPEN          OPEN
26 2167235         "ITALY - ROMA - Piazza di Spagna" 445591.73     4230  846926.01 401334.28     OPEN          OPEN
27 2203462       "ITALY - NOVENTA DI PIAVE - Outlet" 188159.04     5098  659833.14 471674.10     OPEN          OPEN
28  876293              "ITALY - ROMA - Fiumicino B"  63376.15      891  134117.87  70741.72     OPEN          OPEN
29 2312294            "ITALY - FIDENZA - Outlet NEW" 141998.28     4191  549655.07 407656.79     OPEN          OPEN

   SHOP_ID    MARGIN nRECEIPT       GAIN      COGS FlagOpen prevision2019
1  4064196 194247.68     5505  681708.61 487460.93     OPEN          OPEN
2    73638  20007.68      337   44479.96  24472.28     OPEN          OPEN
3  2237727 630648.10     7019 1225036.95 594388.85     OPEN          OPEN
4  2286770 175389.83     1656  330031.18 154641.35     OPEN          OPEN
5  3253865  31478.99      473   67379.97  35900.98     OPEN         CLOSE
6  4063154  69378.27     2699  288114.85 218736.58     OPEN          OPEN
7    73647 103459.19     3064  403503.95 300044.76     OPEN          OPEN
8    73569  56877.92      813  116076.54  59198.62     OPEN          OPEN
9    73539  32635.11      525   69497.32  36862.21     OPEN         CLOSE
10 4596364 102839.96     1222  201342.97  98503.01     OPEN          OPEN
11 3694385 292708.76     2945  564322.08 271613.32     OPEN          OPEN
12 3145981  40576.74     1484  172534.32 131957.58     OPEN          OPEN
13 1489952 206888.62     2081  399424.69 192536.07     OPEN         CLOSE
14 2265838 485280.72     8978 1033463.06 548182.34     OPEN          OPEN
15   73830  25486.93      405   56269.82  30782.89     OPEN          OPEN
16   73801  39345.60      568   80020.96  40675.36     OPEN          OPEN
17   73716  32220.88      475   68861.94  36641.06     OPEN         CLOSE
18 2264278  46636.65      701   97573.92  50937.27     OPEN          OPEN
19 2726114  26713.93      402   54045.17  27331.24     OPEN          OPEN
20   73773  12420.89      211   28334.43  15913.54     OPEN          OPEN
21 4064198 336480.19     7787 1196995.75 860515.56     OPEN          OPEN
22  175674  77269.68     1035  162405.14  85135.46     OPEN          OPEN
23   73740  36069.38      529   75713.85  39644.47     OPEN          OPEN
24   73825  72161.05      946  150774.37  78613.32     OPEN          OPEN
25 2022028   4178.04       88   10211.89   6033.85     OPEN          OPEN
26 2167235 445591.73     4230  846926.01 401334.28     OPEN          OPEN
27 2203462 188159.04     5098  659833.14 471674.10     OPEN          OPEN
28  876293  63376.15      891  134117.87  70741.72     OPEN          OPEN
29 2312294 141998.28     4191  549655.07 407656.79     OPEN          OPEN



----------------------------------------------------------------------------------

> # view results 
> print(CART) 
n= 77 

node), split, n, loss, yval, (yprob)
      * denotes terminal node

  1) root 77 21 OPEN (0.2727273 0.7272727)  
    2) COGS< 4304.595 7  1 CLOSE (0.8571429 0.1428571) *
    3) COGS>=4304.595 70 15 OPEN (0.2142857 0.7857143)  
      6) nRECEIPT>=113 54 15 OPEN (0.2777778 0.7222222)  
       12) MARGIN< 39812.15 16  6 CLOSE (0.6250000 0.3750000)  
         24) COGS>=26027.25 14  4 CLOSE (0.7142857 0.2857143)  
           48) COGS< 43279.45 6  0 CLOSE (1.0000000 0.0000000) *
           49) COGS>=43279.45 8  4 CLOSE (0.5000000 0.5000000)  
             98) MARGIN>=24769.44 2  0 CLOSE (1.0000000 0.0000000) *
             99) MARGIN< 24769.44 6  2 OPEN (0.3333333 0.6666667)  
              198) MARGIN< 17835.57 3  1 CLOSE (0.6666667 0.3333333) *
              199) MARGIN>=17835.57 3  0 OPEN (0.0000000 1.0000000) *
         25) COGS< 26027.25 2  0 OPEN (0.0000000 1.0000000) *
       13) MARGIN>=39812.15 38  5 OPEN (0.1315789 0.8684211)  
         26) COGS>=161920.7 18  4 OPEN (0.2222222 0.7777778)  
           52) nRECEIPT< 2059 2  0 CLOSE (1.0000000 0.0000000) *
           53) nRECEIPT>=2059 16  2 OPEN (0.1250000 0.8750000) *
         27) COGS< 161920.7 20  1 OPEN (0.0500000 0.9500000) *
      7) nRECEIPT< 113 16  0 OPEN (0.0000000 1.0000000) *
> 

> #Inserisco TESTset  nell'ALGORITMO CART
> prevision <- predict(CART, TESTSet, type="class")
> #accuratezza previsione
> Gini(prevision)
[1] 0.1128205
> mean (prevision == TESTSet$FlagOpen)
[1] 0.8666667

 #Estraggo tabella 18_19
> con2 <- dbConnect(odbc::odbc(),DRIVER="SQL Server", SERVER="192.168.2.14", DATABASE = "FASHION_RETAIL", UID="sa", PWD="Mediamente1") 
> query1819 <-dbSendQuery(con2,"select * from AGGREGATE.CART_QUARTER_SHOP_SALES_19 ")
> DATA1819 <- dbFetch(query1819)
> 
> #elimino colonna riferita alla descrizione negozi
> DATASET1819 <- DATA1819 [-2]      
> 
> #Inserisco la tabella nell'ALGORITMO CART
> prevision2019 <- predict(CART, DATASET1819, type="class")
> prevision2019
    1     2     3     4     5     6     7     8     9    10    11    12    13    14    15    16    17    18    19    20    21 
 OPEN  OPEN  OPEN  OPEN CLOSE  OPEN  OPEN  OPEN CLOSE  OPEN  OPEN  OPEN  OPEN  OPEN CLOSE CLOSE CLOSE  OPEN CLOSE  OPEN  OPEN 
   22    23    24    25    26    27    28    29 
 OPEN CLOSE  OPEN  OPEN  OPEN  OPEN  OPEN  OPEN 
Levels: CLOSE OPEN
> 
> #accuratezza previsione
> Gini(prevision2019) 
[1] 0.1041244
> mean (prevision2019 == DATASET1819$FlagOpen) 
[1] 0.7586207
> 
> #Statistics 
> summary(prevision2019) 
CLOSE  OPEN 
    7    22 
> cbind(DATA1819, prevision2019)
   SHOP_ID                                      SHOP    MARGIN nRECEIPT       GAIN      COGS FlagOpen prevision2019
1  4064196 "ITALY - ROMA - CASTELROMANO  Outlet NEW" 194247.68     5505  681708.61 487460.93     OPEN          OPEN
2    73638            "ITALY - SIENA - Via di Citt?"  20007.68      337   44479.96  24472.28     OPEN          OPEN
3  2237727        "ITALY - MILANO - P.zza Duomo NEW" 630648.10     7019 1225036.95 594388.85     OPEN          OPEN
4  2286770   "ITALY - FERNO - MILANO  Malpensa DUTY" 175389.83     1656  330031.18 154641.35     OPEN          OPEN
5  3253865     "ITALY - ORIO AL SERIO - Orio Center"  31478.99      473   67379.97  35900.98     OPEN         CLOSE
6  4063154             "ITALY - MARCIANISE - Outlet"  69378.27     2699  288114.85 218736.58     OPEN          OPEN
7    73647   "ITALY - BARBERINO DI MUGELLO - Outlet" 103459.19     3064  403503.95 300044.76     OPEN          OPEN
8    73569          "ITALY - MILANO - C.so Vercelli"  56877.92      813  116076.54  59198.62     OPEN          OPEN
9    73539             "ITALY - BOLOGNA - Ugo Bassi"  32635.11      525   69497.32  36862.21     OPEN         CLOSE
10 4596364       "ITALY - MILANO - Buenos Aires NEW" 102839.96     1222  201342.97  98503.01     OPEN          OPEN
11 3694385         "ITALY - ROMA - Fiumicino E DUTY" 292708.76     2945  564322.08 271613.32     OPEN          OPEN
12 3145981                  "ITALY - AGIRA - Outlet"  40576.74     1484  172534.32 131957.58     OPEN          OPEN
13 1489952     "ITALY - FIRENZE - P. della Signoria" 206888.62     2081  399424.69 192536.07     OPEN          OPEN
14 2265838                "EUR -  - ECommerce Shop " 485280.72     8978 1033463.06 548182.34     OPEN          OPEN
15   73830                          "ITALY - VARESE"  25486.93      405   56269.82  30782.89     OPEN         CLOSE
16   73801     "ITALY - BOLOGNA - Aeroporto G.Marco"  39345.60      568   80020.96  40675.36     OPEN         CLOSE
17   73716                         "ITALY - BRESCIA"  32220.88      475   68861.94  36641.06     OPEN         CLOSE
18 2264278       "ITALY - ROMA - Cola di Rienzo NEW"  46636.65      701   97573.92  50937.27     OPEN          OPEN
19 2726114                  "ITALY - ROMA - Euroma2"  26713.93      402   54045.17  27331.24     OPEN         CLOSE
20   73773                         "ITALY - PERUGIA"  12420.89      211   28334.43  15913.54     OPEN          OPEN
21 4064198 "ITALY - SERRAVALLE SCRIVIA - Outlet NEW" 336480.19     7787 1196995.75 860515.56     OPEN          OPEN
22  175674              "ITALY - ROMA - Fiumicino C"  77269.68     1035  162405.14  85135.46     OPEN          OPEN
23   73740         "ITALY - NAPOLI - Via Filangieri"  36069.38      529   75713.85  39644.47     OPEN         CLOSE
24   73825                "ITALY - BOLOGNA - Farini"  72161.05      946  150774.37  78613.32     OPEN          OPEN
25 2022028     "ITALY -** PALERMO - Via Libert? NEW"   4178.04       88   10211.89   6033.85     OPEN          OPEN
26 2167235         "ITALY - ROMA - Piazza di Spagna" 445591.73     4230  846926.01 401334.28     OPEN          OPEN
27 2203462       "ITALY - NOVENTA DI PIAVE - Outlet" 188159.04     5098  659833.14 471674.10     OPEN          OPEN
28  876293              "ITALY - ROMA - Fiumicino B"  63376.15      891  134117.87  70741.72     OPEN          OPEN
29 2312294            "ITALY - FIDENZA - Outlet NEW" 141998.28     4191  549655.07 407656.79     OPEN          OPEN





   SHOP_ID                                      SHOP    MARGIN nRECEIPT       GAIN      COGS FlagOpen prevision2019

5  3253865     "ITALY - ORIO AL SERIO - Orio Center"  31478.99      473   67379.97  35900.98     OPEN         CLOSE
9    73539             "ITALY - BOLOGNA - Ugo Bassi"  32635.11      525   69497.32  36862.21     OPEN         CLOSE
15   73830                          "ITALY - VARESE"  25486.93      405   56269.82  30782.89     OPEN         CLOSE
16   73801     "ITALY - BOLOGNA - Aeroporto G.Marco"  39345.60      568   80020.96  40675.36     OPEN         CLOSE
17   73716                         "ITALY - BRESCIA"  32220.88      475   68861.94  36641.06     OPEN         CLOSE
19 2726114                  "ITALY - ROMA - Euroma2"  26713.93      402   54045.17  27331.24     OPEN         CLOSE
23   73740         "ITALY - NAPOLI - Via Filangieri"  36069.38      529   75713.85  39644.47     OPEN         CLOSE



----------------------------------------------------------------------------------

> # view results 
> print(CART) 
n= 77 

node), split, n, loss, yval, (yprob)
      * denotes terminal node

  1) root 77 19 OPEN (0.24675325 0.75324675)  
    2) GAIN< 7756.148 8  1 CLOSE (0.87500000 0.12500000) *
    3) GAIN>=7756.148 69 12 OPEN (0.17391304 0.82608696)  
      6) nRECEIPT>=303 51 11 OPEN (0.21568627 0.78431373)  
       12) MARGIN< 18104.62 5  1 CLOSE (0.80000000 0.20000000) *
       13) MARGIN>=18104.62 46  7 OPEN (0.15217391 0.84782609)  
         26) COGS< 75358.5 10  3 OPEN (0.30000000 0.70000000)  
           52) nRECEIPT>=883.5 2  0 CLOSE (1.00000000 0.00000000) *
           53) nRECEIPT< 883.5 8  1 OPEN (0.12500000 0.87500000) *
         27) COGS>=75358.5 36  4 OPEN (0.11111111 0.88888889)  
           54) COGS>=161920.7 21  4 OPEN (0.19047619 0.80952381)  
            108) nRECEIPT< 2059 2  0 CLOSE (1.00000000 0.00000000) *
            109) nRECEIPT>=2059 19  2 OPEN (0.10526316 0.89473684) *
           55) COGS< 161920.7 15  0 OPEN (0.00000000 1.00000000) *
      7) nRECEIPT< 303 18  1 OPEN (0.05555556 0.94444444) *
> 
> summary (CART)
Call:
rpart(formula = FlagOpen ~ ., data = TRAININGSet, method = "class", 
    control = rpart.control(minsplit = 5))
  n= 77 

          CP nsplit rel error    xerror      xstd
1 0.31578947      0 1.0000000 1.0000000 0.1991094
2 0.07894737      1 0.6842105 0.8421053 0.1873812
3 0.05263158      3 0.5263158 0.8421053 0.1873812
4 0.01000000      7 0.3157895 0.9473684 0.1954624

Variable importance
    GAIN   MARGIN     COGS nRECEIPT 
      27       26       24       24 
> #Inserisco TESTset  nell'ALGORITMO CART
> prevision <- predict(CART, TESTSet, type="class")
> #accuratezza previsione
> Gini(prevision)
[1] 0.08888889
> mean (prevision == TESTSet$FlagOpen)
[1] 0.8
> 
> #Estraggo tabella 18_19
> con2 <- dbConnect(odbc::odbc(),DRIVER="SQL Server", SERVER="192.168.2.14", DATABASE = "FASHION_RETAIL", UID="sa", PWD="Mediamente1") 
> query1819 <-dbSendQuery(con2,"select * from AGGREGATE.CART_QUARTER_SHOP_SALES_19 ")
> DATA1819 <- dbFetch(query1819)
> 
> #elimino colonna riferita alla descrizione negozi
> DATASET1819 <- DATA1819 [-2]      
> 
> #Inserisco la tabella nell'ALGORITMO CART
> prevision2019 <- predict(CART, DATASET1819, type="class")
> prevision2019
    1     2     3     4     5     6     7     8     9    10    11    12    13    14    15    16    17    18    19 
 OPEN  OPEN  OPEN  OPEN  OPEN  OPEN  OPEN  OPEN  OPEN  OPEN  OPEN  OPEN  OPEN  OPEN  OPEN  OPEN  OPEN  OPEN  OPEN 
   20    21    22    23    24    25    26    27    28    29 
 OPEN  OPEN  OPEN  OPEN  OPEN  OPEN  OPEN  OPEN CLOSE  OPEN 
Levels: CLOSE OPEN
> 
> #accuratezza previsione
> Gini(prevision2019) 
[1] 0.0169389
> mean (prevision2019 == DATASET1819$FlagOpen) 
[1] 0.9655172
> 
> #Statistics 
> summary(prevision2019) 
CLOSE  OPEN 
    1    28 
> cbind(DATA1819, prevision2019)
   SHOP_ID                                      SHOP    MARGIN nRECEIPT       GAIN      COGS FlagOpen prevision2019
1  4064196 "ITALY - ROMA - CASTELROMANO  Outlet NEW" 194247.68     5505  681708.61 487460.93     OPEN          OPEN
2    73638            "ITALY - SIENA - Via di Citt?"  20007.68      337   44479.96  24472.28     OPEN          OPEN
3  2237727        "ITALY - MILANO - P.zza Duomo NEW" 630648.10     7019 1225036.95 594388.85     OPEN          OPEN
4  2286770   "ITALY - FERNO - MILANO  Malpensa DUTY" 175389.83     1656  330031.18 154641.35     OPEN          OPEN
5  3253865     "ITALY - ORIO AL SERIO - Orio Center"  31478.99      473   67379.97  35900.98     OPEN          OPEN
6  4063154             "ITALY - MARCIANISE - Outlet"  69378.27     2699  288114.85 218736.58     OPEN          OPEN
7    73647   "ITALY - BARBERINO DI MUGELLO - Outlet" 103459.19     3064  403503.95 300044.76     OPEN          OPEN
8    73569          "ITALY - MILANO - C.so Vercelli"  56877.92      813  116076.54  59198.62     OPEN          OPEN
9    73539             "ITALY - BOLOGNA - Ugo Bassi"  32635.11      525   69497.32  36862.21     OPEN          OPEN
10 4596364       "ITALY - MILANO - Buenos Aires NEW" 102839.96     1222  201342.97  98503.01     OPEN          OPEN
11 3694385         "ITALY - ROMA - Fiumicino E DUTY" 292708.76     2945  564322.08 271613.32     OPEN          OPEN
12 3145981                  "ITALY - AGIRA - Outlet"  40576.74     1484  172534.32 131957.58     OPEN          OPEN
13 1489952     "ITALY - FIRENZE - P. della Signoria" 206888.62     2081  399424.69 192536.07     OPEN          OPEN
14 2265838                "EUR -  - ECommerce Shop " 485280.72     8978 1033463.06 548182.34     OPEN          OPEN
15   73830                          "ITALY - VARESE"  25486.93      405   56269.82  30782.89     OPEN          OPEN
16   73801     "ITALY - BOLOGNA - Aeroporto G.Marco"  39345.60      568   80020.96  40675.36     OPEN          OPEN
17   73716                         "ITALY - BRESCIA"  32220.88      475   68861.94  36641.06     OPEN          OPEN
18 2264278       "ITALY - ROMA - Cola di Rienzo NEW"  46636.65      701   97573.92  50937.27     OPEN          OPEN
19 2726114                  "ITALY - ROMA - Euroma2"  26713.93      402   54045.17  27331.24     OPEN          OPEN
20   73773                         "ITALY - PERUGIA"  12420.89      211   28334.43  15913.54     OPEN          OPEN
21 4064198 "ITALY - SERRAVALLE SCRIVIA - Outlet NEW" 336480.19     7787 1196995.75 860515.56     OPEN          OPEN
22  175674              "ITALY - ROMA - Fiumicino C"  77269.68     1035  162405.14  85135.46     OPEN          OPEN
23   73740         "ITALY - NAPOLI - Via Filangieri"  36069.38      529   75713.85  39644.47     OPEN          OPEN
24   73825                "ITALY - BOLOGNA - Farini"  72161.05      946  150774.37  78613.32     OPEN          OPEN
25 2022028     "ITALY -** PALERMO - Via Libert? NEW"   4178.04       88   10211.89   6033.85     OPEN          OPEN
26 2167235         "ITALY - ROMA - Piazza di Spagna" 445591.73     4230  846926.01 401334.28     OPEN          OPEN
27 2203462       "ITALY - NOVENTA DI PIAVE - Outlet" 188159.04     5098  659833.14 471674.10     OPEN          OPEN
28  876293              "ITALY - ROMA - Fiumicino B"  63376.15      891  134117.87  70741.72     OPEN         CLOSE
29 2312294            "ITALY - FIDENZA - Outlet NEW" 141998.28     4191  549655.07 407656.79     OPEN          OPEN

   SHOP_ID                                      SHOP    MARGIN nRECEIPT       GAIN      COGS FlagOpen prevision2019
28  876293              "ITALY - ROMA - Fiumicino B"  63376.15      891  134117.87  70741.72     OPEN         CLOSE